


Namespace Seguridad
Public Class Usuario

public Function Listar(UsuarioId as integer) as Entity.Seguridad.Usuario

dim objEnt as  New entity.Seguridad.Usuario
dim obj as  New Data.Seguridad.Usuario
return obj.Listar(UsuarioId)

End Function


'***************************

        Public Function Validar(ByVal Usuario As String, ByVal Password As String) As Entity.Seguridad.Usuario

            Dim ent As Entity.Seguridad.Usuario
            Dim ocol As Entity.Seguridad.UsuarioCol
            ocol = Listar(-1, _
                           -1, _
                            Usuario, _
                            Password, _
                             -1, _
                              -1)

            If ocol IsNot Nothing Then
                If ocol.Count = 1 Then
                    ent = ocol.Usuario(0)
                End If
            End If



            Return ent

        End Function

        Public Function Listar( _
          ByVal UsuarioId As Integer, _
          ByVal PersonaID As Integer, _
          ByVal Login As String, _
          ByVal Password As String, _
          ByVal Estado As Integer, _
          ByVal RolId As Integer) _
        As Entity.Seguridad.UsuarioCol

            Dim objCol As New Entity.Seguridad.UsuarioCol
            Dim obj As New Data.Seguridad.Usuario
            Return obj.Listar(" ", _
              UsuarioId, _
              PersonaID, _
              Login, _
              Password, _
              Estado, _
              RolId)

        End Function

    End Class



end namespace

